Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue30/rsa10/RSA10.ZIP/SAMPLE/MAIN.DFM/MAIN.txt

Text File | 1997-09-16 | 2.8 KB | 171 lines

object Form1: TForm1
  Left = 100
  Top = 158
  Width = 669
  Height = 325
  Caption = 'RSA demo'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 40
    Width = 18
    Height = 13
    Caption = 'Key'
  end
  object Label2: TLabel
    Left = 16
    Top = 12
    Width = 53
    Height = 13
    Caption = 'Key length:'
  end
  object Label3: TLabel
    Left = 136
    Top = 12
    Width = 34
    Height = 13
    Caption = 'x 16 bit'
  end
  object LabelProgress: TLabel
    Left = 184
    Top = 36
    Width = 3
    Height = 13
  end
  object Label4: TLabel
    Left = 16
    Top = 184
    Width = 72
    Height = 13
    Caption = 'Text to encode'
  end
  object Label5: TLabel
    Left = 384
    Top = 184
    Width = 67
    Height = 13
    Caption = 'Encoded data'
  end
  object Label6: TLabel
    Left = 16
    Top = 248
    Width = 64
    Height = 13
    Caption = 'Decoded text'
  end
  object Button1: TButton
    Left = 184
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Generate key'
    TabOrder = 1
    OnClick = Button1Click
  end
  object ButtonEncode: TButton
    Left = 296
    Top = 200
    Width = 75
    Height = 25
    Caption = ' Encode >>'
    Enabled = False
    TabOrder = 6
    OnClick = ButtonEncodeClick
  end
  object ButtonDecode: TButton
    Left = 296
    Top = 264
    Width = 75
    Height = 25
    Caption = '<< Decode'
    Enabled = False
    TabOrder = 7
    OnClick = ButtonDecodeClick
  end
  object Memo3: TMemo
    Left = 16
    Top = 56
    Width = 633
    Height = 113
    TabOrder = 4
  end
  object Edit1: TEdit
    Left = 16
    Top = 200
    Width = 265
    Height = 21
    MaxLength = 200
    TabOrder = 5
  end
  object Edit3: TEdit
    Left = 72
    Top = 8
    Width = 33
    Height = 21
    MaxLength = 3
    ReadOnly = True
    TabOrder = 0
    Text = '1'
  end
  object Button2: TButton
    Left = 272
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Save key'
    Enabled = False
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 360
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Load key'
    Enabled = False
    TabOrder = 3
    OnClick = Button3Click
  end
  object ListBox1: TListBox
    Left = 384
    Top = 200
    Width = 265
    Height = 89
    Columns = 5
    ItemHeight = 13
    TabOrder = 8
  end
  object UpDown1: TUpDown
    Left = 105
    Top = 8
    Width = 15
    Height = 21
    Associate = Edit3
    Min = 1
    Max = 50
    Position = 1
    TabOrder = 9
    Wrap = False
  end
  object Edit2: TEdit
    Left = 16
    Top = 264
    Width = 265
    Height = 21
    TabOrder = 10
  end
  object RSA1: TRSA
    OnProgress = RSA1Progress
    Left = 8
    Top = 72
  end
end